2 NT=0;clear ;print ;input "BASES?"S
5 BC=0;O=10;T=2;@(1)=25;@(2)=25;@(3)=25;V=499;M=0;Q=4;W=200;FC=14;gosub 2000
10 clear ;FC=14;box 0,-42,160,3,3
20 box 0,-40,10,7,1
30 X=10451;Y=10240;Z=10285
35 B=-40;C=40;D=0;E=C;F=C;G=F
40 for A=30to 70step 35;box A,-38-rnd (3),9,5,1;box -A,-38-rnd (2),9,5,1;next A
50 for A=-4to 4step 3;box A,-38,1,1,2;next A
60 C=C-T-rnd (3);E=E-T-rnd (3);G=G-T-rnd (3);B=B+rnd (7)-4;D=D+rnd (7)-3;F=F+rnd (7)-3
61 if Q=2if M>W T=T+1;W=W+200;goto 70
62 if M>W Q=Q-1;W=W+200
65 if M>Vgosub 1000
67 if @(1)<5if @(2)<5if @(3)<5BC=1
70 XY=X;line B,C,3;X=XY;XY=Y;line D,E,3;Y=XY;XY=Z;line F,G,3;Z=XY
71 NT=0;CY=42;CX=-30;print #0,M;NT=1
75 if (C<-37)+(E<-38)+(G<-37)goto 200
80 for A=1to Q;gosub 100;next A;goto 60
100 J=KN(1)div 85+2
102 VA=2;VB=2;VC=2;TA=166;TB=TA;TC=99;VR=13;VF=2
105 H=H+JX(1)mul (5+T);I=I+JY(1)mul (5+T);if I>35I=35
106 if I<-30I=-30
107 CX=H;CY=I;print "+";K=0;CX=H;CY=I;print " "
108 if TR(1)#1return 
109 if @(J)=0MU="4";return 
110 if J=1R=-10049
111 if J=2R=-10240
112 if J=3R=-10175
115 @(J)=@(J)-1;VC=5;TA=53;NM=2;VR=63;VF=3;MO=-1;TC=29;VA=5;VB=6;if @(1)=0if @(2)=0if @(3)=0goto 1600
116 for K=1to 2;XY=R;line H,I,3;next K
120 if H>B-Oif H<B+Oif I<Cif I>C-Obox -52,6,50,75,2;X=10451;B=-40;C=40;NV=-1;M=M+20
130 if H>D-Oif H<D+Oif I<Eif I>E-O M=M+20;box 0,6,53,75,2;Y=10240;NV=-1;D=0;E=40
140 if H>F-Oif H<F+Oif I<Gif I>G-O NV=-1;M=M+20;box 52,6,53,75,2;Z=10285;F=40;G=F
150 NV=0; return 
200 for A=1to 30;BC=89;MU=44;BC=0;MU=95;next A;S=S-1;if S=0goto 600
210 gosub 2000;goto 10
600 down ;for A=50to 101;FC=89;box 0,-38,160,10,3;FC=14;MU=A;next A;STOP
1000 NT=0;CY=30;print "    BONUS BASE";print "   FUEL BONUS:";print 
1001 NT=1;for A=1to 100step 3;MU=A;next A;for A=1to @(1)+@(2)+@(3);print "*",;M=M+5;next A;CX=-30;CY=40;print #0,M;for A=1to 3;@(A)=25;next A
1002 for A=1to 1200;next A
1003 BC=0;if O<20O=O+1
1010 V=V+500;S=S+1;gosub 2000;goto 10
1600 CY=10;print "  OUT OF ENERGY!";goto 600
2000 down ;clear ;CY=0;CX=0;print #0,S;for A=1to 40;box 0,0,30,30,3;next A;return 
